home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  640 b   |  30 lines
  1. 10   PRINT "PERMUTATIONS AND COMBINATIONS"
  2. 20   PRINT 
  3. 30   PRINT "(ENTER 0 TO END PROGRAM)"
  4. 40   PRINT "TOTAL NUMBER OF OBJECTS";
  5. 50   INPUT N
  6. 60   IF N = 0 THEN 280
  7. 70   PRINT "SIZE OF SUBGROUP";
  8. 80   INPUT D
  9. 90   IF D <  = N THEN 130
  10. 100   PRINT "SUBGROUP TOO LARGE"
  11. 110   PRINT 
  12. 120   GOTO 40
  13. 130  P = 1
  14. 140  C = 1
  15. 150   FOR I = N - D + 1 TO N
  16. 160   IF 9.9E+37 / I >  = P THEN 190
  17. 170   PRINT "MORE THAN 9.9 * 10^37 PERMUTATIONS"
  18. 180   GOTO 280
  19. 190  P = P * I
  20. 200   NEXT I
  21. 210   FOR J = 2 TO D
  22. 220  C = C * J
  23. 230  NEXT J
  24. 240  PRINT P; "PERMUTATIONS"
  25. 250  PRINT P/C; "COMBINATIONS"
  26. 260  PRINT
  27. 269  REM - RESTART PROGRAM
  28. 270  GOTO 40
  29. 280  RUN "STAT"
  30.